home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 27 / 0 / DISK2701.ZIP / A1.#@# / FBO_DPI.BAT < prev    next >
DOS Batch File  |  1991-03-16  |  6KB  |  333 lines
  1. ECHO OFF
  2.  
  3. CD\
  4. PRINT /T
  5. TYPE \TAKE-OFF.DIR\VV
  6. BREAK OFF
  7. CD \TAKE-OFF.DIR
  8. IF EXIST J.EXE RENAME J.EXE CHARTER.EXE
  9. IF EXIST J.EXE ERASE J.EXE
  10. J.COM /H
  11. IF EXIST SUCCESS ERASE SUCCESS
  12. IF EXIST FB GOTO NEXTONE
  13. VOL >FB
  14. QLOAD
  15.  
  16. :NEXTONE
  17. CLS
  18. IF %1. == . GOTO ENDING
  19.  
  20. IF %1 == EXTEND MENU_EXT
  21. IF %1 == extend MENU_EXT
  22. IF %1 == X MENU_EXT
  23. IF %1 == x MENU_EXT
  24.  
  25. IF %1 == RECALL GOTO OPTIONP
  26. IF %1 == recall GOTO OPTIONP
  27. IF %1 == FBO  GOTO STARTER
  28. IF %1 == FBO$ GOTO MAIN
  29. IF %1 == FBO! GOTO CLEARANCE
  30. IF %1 == FBOHELP GOTO HELPENDING
  31. IF %1 == GRAPH GOTO CHARTMASTER
  32. IF %1 == graph GOTO CHARTMASTER
  33. IF %1 == G GOTO CHARTMASTER
  34. IF %1 == g GOTO CHARTMASTER
  35.  
  36. IF %1 == LISTPLAN GOTO OPTIONB
  37. IF %1 == listplan GOTO OPTIONB
  38. IF %1 == NAVSUM GOTO OPTIONC
  39. IF %1 == navsum GOTO OPTIONC
  40. IF %1 == PRINT GOTO OPTIOND
  41. IF %1 == print GOTO OPTIOND
  42.  
  43. IF %1 == PREF GOTO OPTIONJ
  44. IF %1 == pref GOTO OPTIONJ
  45. IF %1 == AUTO GOTO OPTIONL
  46. IF %1 == auto GOTO OPTIONL
  47. IF %1 == RNAV GOTO OPTIONM
  48. IF %1 == rnav GOTO OPTIONM
  49. IF %1 == PLAN GOTO OPTIONK
  50. IF %1 == plan GOTO OPTIONK
  51. IF %1 == AIRPORT GOTO AIRPORTS
  52. IF %1 == airport GOTO AIRPORTS
  53. IF %1 == A GOTO AIRPORTS
  54. IF %1 == a GOTO AIRPORTS
  55.  
  56. IF %1 == W&B GOTO W&B
  57. IF %1 == w&b GOTO W&B
  58. IF %1 == MAIN GOTO MAIN
  59. IF %1 == main GOTO MAIN
  60. IF %1 == MENU GOTO CLEARANCE
  61. IF %1 == menu GOTO CLEARANCE
  62. IF %1 == MANUAL GOTO MANUAL
  63. IF %1 == manual GOTO MANUAL
  64. IF %1 == HELP GOTO HELP
  65. IF %1 == help GOTO HELP
  66. IF %1 == MODEL GOTO MODEL
  67. IF %1 == model GOTO MODEL
  68.  
  69. IF %1 == SEARCH GOTO NAVTLU
  70. IF %1 == search GOTO NAVTLU
  71. IF %1 == S GOTO NAVTLU
  72. IF %1 == s GOTO NAVTLU
  73.  
  74. IF %1 == INTERSECTION GOTO XSCTN
  75. IF %1 == intersection GOTO XSCTN
  76. IF %1 == I GOTO XSCTN
  77. IF %1 == i GOTO XSCTN
  78.  
  79. IF %1 == NAVAID GOTO NAVAID
  80. IF %1 == navaid GOTO NAVAID
  81. IF %1 == N GOTO NAVAID
  82. IF %1 == n GOTO NAVAID
  83.  
  84. IF %1 == RESET GOTO RESET
  85. IF %1 == reset GOTO RESET
  86. IF %1 == AUTOEXEC GOTO AEXEC
  87. IF %1 == autoexec GOTO AEXEC
  88.  
  89. IF %1 == ALARM GOTO ALARM
  90. IF %1 == alarm GOTO ALARM
  91. IF %1 == FUEL GOTO FUEL
  92. IF %1 == fuel GOTO FUEL
  93.  
  94.  
  95. ECHO - [ %1 ] Function unknown!......
  96. PAUSE
  97. GOTO ENDING
  98.  
  99. :FUEL
  100. QLOAD
  101. IF NOT EXIST FB ECHO - Fuel load not successful.....
  102. IF NOT EXIST FB PAUSE
  103. GOTO ENDING
  104.  
  105. :RESET
  106. BEGIN
  107. GOTO ENDING
  108.  
  109. :MAIN
  110. IDLER
  111. GOTO ENDING
  112.  
  113. :XSCTN
  114. IDLER 5
  115. GOTO ENDING
  116.  
  117. :NAVAID
  118. IDLER 4
  119. GOTO ENDING
  120.  
  121. :ALARM
  122. IF NOT %2. == . GOTO ALARMA
  123. ECHO - Vendor # missing!......
  124. GOTO ALARMEXI
  125. :ALARMA
  126. IF NOT %3. == . GOTO ALARMGO
  127. ECHO - Time missing!......
  128. :ALARMEXI
  129. PAUSE
  130. GOTO ENDING
  131.  
  132. :ALARMGO
  133. IDLER 10 %2 %3              %4 %5 %6 %7 %8 %9
  134. REM - spaces are required to allow for commandmsg$ display.....
  135. IF NOT EXIST SUCCESS GOTO ENDING
  136. IF %2 == 8  GOTO DUATLOG
  137. IF %2 == 9  GOTO DUATLOG
  138.  
  139. :ALARMC
  140. SHIFT
  141. SHIFT
  142. SHIFT
  143. GOTO NEXTONE
  144.  
  145. :DUATLOG
  146. CLS
  147. ECHO - Printing DUAT log.......
  148. COPY /A DUAT.DAT PRN:
  149. COPY /B SUCCESS PRN:
  150. GOTO ALARMC
  151.  
  152. :CLEARANCE
  153. CLEARANC
  154. GOTO ENDING
  155.  
  156. :OPTIONB
  157. CLEARANC B
  158. GOTO ENDING
  159.  
  160. :OPTIONC
  161. CLEARANC C
  162. GOTO ENDING
  163.  
  164. :OPTIOND
  165. IF EXIST PRTARGET ERASE PRTARGET
  166. CLEARANC D PRTARGET nonesuch nonesuch
  167. GOTO PLANFINI
  168.  
  169. :OPTIONJ
  170. IF EXIST PRTARGET ERASE PRTARGET
  171. IF EXIST AIRPORTS ERASE AIRPORTS
  172. IF EXIST APTARGET ERASE APTARGET
  173. CLEARANC J PRTARGET %2 %3
  174. GOTO OPTJLM
  175.  
  176. :OPTIONL
  177. IF EXIST PRTARGET ERASE PRTARGET
  178. IF EXIST AIRPORTS ERASE AIRPORTS
  179. IF EXIST APTARGET ERASE APTARGET
  180. CLEARANC L PRTARGET %2 %3 %4 %5 %6 %7
  181. GOTO OPTJLM
  182.  
  183. :OPTIONM
  184. IF EXIST PRTARGET ERASE PRTARGET
  185. IF EXIST AIRPORTS ERASE AIRPORTS
  186. IF EXIST APTARGET ERASE APTARGET
  187. CLEARANC M PRTARGET %2 %3
  188. GOTO OPTJLM
  189.  
  190. :OPTIONK
  191. IF EXIST AIRPORTS ERASE AIRPORTS
  192. CLEARANC K
  193. GOTO ENDING
  194.  
  195. :OPTIONP
  196. IF EXIST AIRPORTS ERASE AIRPORTS
  197. CLEARANC P
  198. GOTO ENDING
  199.  
  200. :OPTJLM
  201. CLS
  202. IF NOT EXIST PRTARGET ECHO - Plan was not successful......!
  203. IF NOT EXIST PRTARGET PAUSE
  204. IF NOT EXIST PRTARGET GOTO ENDING
  205. CLS
  206. ECHO - Please turn printer & modem on. Thank you.
  207. COPY /B PRTARGET PRN:
  208. CLS
  209. IF EXIST WEABRIEF ERASE WEABRIEF
  210. IF EXIST SUCCESS IDLER 11
  211. CLS
  212. ECHO - Printing enroute weather briefing.........
  213. IF EXIST WEABRIEF COPY /B WEABRIEF PRN:
  214. CLS
  215. IF NOT EXIST AIRPORTS GOTO ACHART
  216. AFD
  217. ECHO - Please turn printer on. Thank you.
  218. COPY /B APTARGET PRN:
  219.  
  220. :ACHART
  221. IF EXIST GRTARGET ERASE GRTARGET
  222. IF %2. == . CHARTER
  223. IF %2. == . GOTO ENDING
  224. CHARTER GRTARGET
  225. GOTO XCHARTMASTER
  226.  
  227. :CHARTMASTER
  228. IF EXIST GRTARGET ERASE GRTARGET
  229. IF %2. == . CHARTER
  230. IF %2. == . GOTO ENDING
  231. CHARTER GRTARGET %3
  232. :XCHARTMASTER
  233. IF NOT EXIST GRTARGET GOTO ENDING
  234. ECHO - Please turn printer on. Thank you.
  235. COPY /B GRTARGET PRN:
  236. GOTO ENDING
  237.  
  238. :PLANFINI
  239. IF NOT EXIST PRTARGET GOTO ENDING
  240. CLS
  241. ECHO - Please turn printer on. Thank you.
  242. COPY /B PRTARGET PRN:
  243. IF %2. == R. GOTO PLANFB
  244. IF %2. == r. GOTO PLANFB
  245. GOTO PLANFA
  246.  
  247. :PLANFB
  248. IF EXIST GRTARGET ERASE GRTARGET
  249. CHARTER GRTARGET
  250. IF NOT EXIST GRTARGET GOTO ENDING
  251. ECHO - Please turn printer on. Thank you.
  252. COPY /B GRTARGET PRN:
  253. :PLANFA
  254. IF %3. == . GOTO OPTDKP
  255. SHIFT
  256. GOTO AIRPORTS
  257.  
  258. :AIRPORTS
  259. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.ID CLS
  260. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.ID ECHO - AFD's require re-gen......re-install any AFD!
  261. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.ID PAUSE
  262. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.ID GOTO ENDING
  263. IF EXIST APTARGET ERASE APTARGET
  264. IF %2. == . AIRPORT
  265. IF %2. == . GOTO ENDING
  266. AIRPORT %2 %3 APTARGET %4 %5
  267. IF %4. == . PAUSE
  268. :OPTDKPX
  269. IF NOT EXIST APTARGET GOTO ENDING
  270. ECHO - Please turn printer on. Thank you.
  271. COPY /B APTARGET PRN:
  272. GOTO ENDING
  273.  
  274. :OPTDKP
  275. CLS
  276. IF EXIST APTARGET ERASE APTARGET
  277. IF EXIST AIRPORTS AFD
  278. GOTO OPTDKPX
  279.  
  280. :W&B
  281. WB
  282. GOTO ENDING
  283.  
  284. :MODEL
  285. BUILD
  286. GOTO ENDING
  287.  
  288. :NAVTLU
  289. NAVTLU
  290. GOTO ENDING
  291.  
  292. :STARTER
  293. TYPE \TAKE-OFF.DIR\V | MORE
  294. TYPE \TAKE-OFF.DIR\COPYRATE.MAN
  295. TYPE \TAKE-OFF.DIR\TOMBSTON.EXE
  296. PAUSE
  297. GOTO MAIN
  298.  
  299. :HELPENDING
  300. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  301. ECHO - Versions installed......
  302. TYPE \TAKE-OFF.DIR\VERSIONS | MORE
  303. PAUSE
  304. GOTO ENDING
  305.  
  306. :MANUAL
  307. ECHO - PRINT CLEARANCE MANUAL
  308. ECHO -
  309. ECHO - Turn Printer on! DOS print file must be in path.
  310. ECHO -
  311. PAUSE
  312. CD\
  313. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  314. PRINT \TAKE-OFF.DIR\VERSIONS
  315. PRINT \TAKE-OFF.DIR\HELP.BAS
  316. CLS
  317. TYPE  \TAKE-OFF.DIR\V
  318. ECHO - Wait for printing to stop!
  319. PAUSE
  320. GOTO ENDING
  321.  
  322. :HELP
  323. IDLER 1
  324. GOTO ENDING
  325.  
  326. :AEXEC
  327. cd\
  328. AUTOEXEC.BAT
  329.  
  330. :ENDING
  331. \TAKE-OFF.DIR\MENU_DPI
  332.  
  333.